Top 10k strings from Shadow (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 31110 END DEFine reset
   1 31100  SCALE 100,0,0:FILL 0
   1 31090  PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS
   1 31080  FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il
   1 31070  PAPER 2*(i=8):BORDER (i=4),4*(i=4)
   1 31060  WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4)
   1 31050  WINDOW#0,448,40-(i=4),32,216+(i=4)
   1 31040  PAPER#2,1:INK#2,7
   1 31030  OPEN#2,con_:WINDOW#2,448,200,32,16
   1 31020  WINDOW 513,256,0,0:PAPER 0:CLS
   1 31010  LOCal il:MODE i
   1 31000 DEFine PROCedure reset(i)
   1 150 PAPER 7:CLS
   1 140 WINDOW 448,180,32,16
   1 130 BLOCK 4,176,480,20,0
   1 120 BLOCK 448,4,36,196,0
   1 110 PAPER 4:CLS
   1 100 MODE 4: WINDOW 512,256,0,0